home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XCO212P.ZIP / CDEF / time.def < prev   
Encoding:
Text File  |  1995-05-30  |  1.3 KB  |  56 lines
  1. (* Copyright (c) xTech 1992,95.  All Rights Reserved *)
  2. <*+ CSTDLIB  *>
  3. <*+ NOHEADER *>
  4. <*+ M2ADDTYPES *>
  5. <*+ M2EXTENSIONS *>
  6. DEFINITION MODULE [2] time;
  7.  
  8. FROM SYSTEM IMPORT int, size_t, ADDRESS;
  9.  
  10. <*$< GENTYPEDEF- *>
  11. TYPE
  12.   tm = RECORD
  13.          tm_sec   : int;
  14.          tm_min   : int;
  15.          tm_hour  : int;
  16.          tm_mday  : int;
  17.          tm_mon   : int;
  18.          tm_year  : int;
  19.          tm_wday  : int;
  20.          tm_yday  : int;
  21.          tm_isdst : int;
  22.        END;
  23. <*$>*>
  24.  
  25. TYPE
  26.   clock_t;
  27.   time_t;
  28.  
  29. PROCEDURE asctime(VAR t: tm): ADDRESS;
  30. (* returns pointer to string Tue Aug 12:00:00 1999 \n 0c *)
  31.  
  32. PROCEDURE clock(): clock_t;
  33. (* no of clock after start process *)
  34.  
  35. PROCEDURE ctime(VAR t: time_t): ADDRESS;
  36. (* returns pointer to string Tue Aug 12:00:00 1999 \n 0c *)
  37.  
  38. PROCEDURE difftime(time2,time1: time_t): LONGREAL;
  39.  
  40. PROCEDURE gmtime(VAR t: time_t): ADDRESS;
  41. (* any t converts to pointer to tm *)
  42.  
  43. PROCEDURE localtime(VAR t: time_t): ADDRESS;
  44. (* t (time() ) converts to pointer to tm *)
  45.  
  46. PROCEDURE mktime(VAR t: tm): time_t;
  47. (* converts tm to time *)
  48.  
  49. PROCEDURE time(VAR t: time_t): time_t;
  50. (* returns time in second *)
  51.  
  52. PROCEDURE strftime(VAR s: ARRAY OF CHAR; maxsize: size_t;
  53.           format: ARRAY OF CHAR; VAR t: tm): size_t;
  54.  
  55. END time.
  56.